Georgia Wildfire Prevention/Georgia Wildfire Prevention.iso/pc/media/dirs/BackUp/WildFire.dir/00004_Script_MovieAction

Text File | 2002-10-15 | 858b | 40 lines

--Attach this behavior to a movie to receive commands from control buttons.

property SpNum, MemNum, MyMem

on new me
  SpNum = me.spritenum
  mm=sprite(spnum).member
  MemNum =mm.number
  MyMem = mm.name
end

--MouseDown Controls
on MovieActionDown me, MovieControl
  case MovieControl of
    "Play" :  sprite(SpNum).movierate = 1
    "Pause" :  sprite(SpNum).movierate = 0
    "Stop" : sprite(SpNum).movietime = 0
      sprite(SpNum).movierate = 0
    "Rewind" : sprite(SpNum).movierate = -2
    "Fast Forward" : sprite(SpNum).movierate = 2
  end case
end

--MouseUp Controls
on MovieActionUp me, MovieControl
  case (MovieControl) of
    "Rewind" : sprite(SpNum).movierate = 1
    "Fast Forward" : sprite(SpNum).movierate = 1
  end case
end

on MemberNameCall me
  sendallsprites (#MemberResponse, MyMem)
end